home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
keyb
/
keykill.zip
/
KEYKILL.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-12-13
|
1KB
|
22 lines
1 CLS : INPUT "Enter decimal scan code of key you want disabled";SCAN1
2 INPUT "Enter second scan code of key you want disabled";SCAN2
3 INPUT "Enter third scan code of key you want disabled";SCAN3
4 OPEN "keykill.com" FOR OUTPUT AS 1
5 FOR I = 1 TO 110 : READ BYTE
6 IF I = 13 THEN IF SCAN1 > 0 AND SCAN1 < 128 THEN BYTE = SCAN1
7 IF I = 17 THEN IF SCAN2 > 0 AND SCAN2 < 128 THEN BYTE = SCAN2
8 IF I = 21 THEN IF SCAN3 > 0 AND SCAN3 < 128 THEN BYTE = SCAN3
9 PRINT#1, CHR$(BYTE); : NEXT I : CLOSE 1
10 PRINT "KEYKILL.COM created. Type SYSTEM to quit Basic"
11 DATA 235, 47,144, 0, 0, 0, 0,251, 80,228
12 DATA 96, 60,255,116, 15, 60,255,116, 11, 60
13 DATA 255,116, 7, 88,250, 46,255, 46, 3, 1
14 DATA 250,228, 97, 12,128,230, 97, 36,127,235
15 DATA 0,230, 97,176, 32,230, 32, 88,207,184
16 DATA 9, 53,205, 33,137, 30, 3, 1,140,192
17 DATA 163, 5, 1,186, 7, 1,184, 9, 37,205
18 DATA 33,180, 9,186, 86, 1,205, 33,186, 20
19 DATA 0,184, 0, 49,205, 33, 13, 10, 75, 69
20 DATA 89, 75, 73, 76, 76, 76, 32,105,110,115
21 DATA 116, 97,108,108,101,100, 46, 13, 10, 36